Changeset 4325
- Timestamp:
- 2013-11-29T16:27:48+01:00 (11 years ago)
- Location:
- branches/2013/dev_MERGE_2013/NEMOGCM/NEMO
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/LIM_SRC_2/iceini_2.F90
r4319 r4325 28 28 USE limrst_2 ! LIM2 restart 29 29 USE limsbc_2 ! LIM2 surface boundary condition 30 USE limdia_2 30 31 USE in_out_manager ! I/O manager 31 32 USE lib_mpp ! MPP library … … 95 96 ENDIF 96 97 ! 98 CALL lim_dia_init_2 99 ! 97 100 tn_ice(:,:,1) = sist(:,:) ! ice temperature known by the ocean 98 101 fr_i (:,:) = 1.0 - frld(:,:) ! sea-ice fraction known by the ocean -
branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/LIM_SRC_2/limdia_2.F90
r4147 r4325 29 29 PRIVATE 30 30 31 PUBLIC lim_dia_2 ! called by sbc_ice_lim_2 31 PUBLIC lim_dia_2 ! called by sbc_ice_lim_2 32 PUBLIC lim_dia_init_2 ! called by sbc_ice_lim_2 32 33 33 34 INTEGER, PUBLIC :: ntmoy , & !: instantaneous values of ice evolution or averaging ntmoy … … 82 83 REAL(wp), DIMENSION(jpinfmx) :: vinfor ! temporary working space 83 84 !!------------------------------------------------------------------- 84 85 IF( kt == nit000 ) CALL lim_dia_init_2 ! initialisation of ice_evolu file86 85 87 86 ! computation of key variables at each time step -
branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/LDF/ldfdyn_c2d.h90
r4147 r4325 146 146 INTEGER :: inum, iim, ijm ! local integers 147 147 INTEGER :: ifreq, il1, il2, ij, ii 148 INTEGER :: ijpt0,ijpt1 148 149 REAL(wp) :: zahmeq, zcoft, zcoff, zmsk 149 150 CHARACTER (len=15) :: clexp … … 373 374 INTEGER :: iim, ijm 374 375 INTEGER :: ifreq, il1, il2, ij, ii 376 INTEGER :: ijpt0,ijpt1 375 377 REAL(wp) :: zahmeq, zcoft, zcoff, zmsk, zam20s 376 378 CHARACTER (len=15) :: clexp -
branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_mle.F90
r4310 r4325 117 117 END DO 118 118 END DO 119 ikmax = M AX( MAXVAL( inml_mle(:,:) ), jpkm1 ) ! max level of the computation119 ikmax = MIN( MAXVAL( inml_mle(:,:) ), jpkm1 ) ! max level of the computation 120 120 ! 121 121 !
Note: See TracChangeset
for help on using the changeset viewer.