/[MITgcm]/MITgcm_contrib/bling/pkg/bling_init_varia.F
ViewVC logotype

Diff of /MITgcm_contrib/bling/pkg/bling_init_varia.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by mmazloff, Fri May 23 17:33:43 2014 UTC revision 1.2 by mmazloff, Sun Feb 28 21:49:24 2016 UTC
# Line 42  C--   Initialise global variables Line 42  C--   Initialise global variables
42            DO i=1-Olx,sNx+Olx            DO i=1-Olx,sNx+Olx
43              omegaC(i,j,k,bi,bj)     = 0. _d 0              omegaC(i,j,k,bi,bj)     = 0. _d 0
44              omegaAr(i,j,k,bi,bj)    = 0. _d 0              omegaAr(i,j,k,bi,bj)    = 0. _d 0
45              irr_mem(i,j,k,bi,bj)    = 30. _d 0              irr_mem(i,j,k,bi,bj)    = 1. _d 0
46              irr_inst(i,j,k,bi,bj)   = 0. _d 0              chl(i,j,k,bi,bj)        = 0. _d 0
47              P_sm(i,j,k,bi,bj)       = 0. _d 0              P_sm(i,j,k,bi,bj)       = 4. _d -7 / permil
48              P_lg(i,j,k,bi,bj)       = 0. _d 0              P_lg(i,j,k,bi,bj)       = 4. _d -7 / permil
49                P_diaz(i,j,k,bi,bj)     = 4. _d -7 / permil
50            ENDDO            ENDDO
51           ENDDO           ENDDO
52          ENDDO          ENDDO
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22