Changeset 881 for branches/dev_001_SBC/NEMO/LIM_SRC/limdia.F90
- Timestamp:
- 2008-04-08T11:45:52+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_001_SBC/NEMO/LIM_SRC/limdia.F90
r717 r881 1 MODULE limdia 1 MODULE limdia_2 2 2 !!====================================================================== 3 !! *** MODULE limdia ***3 !! *** MODULE limdia_2 *** 4 4 !! diagnostics of ice model 5 5 !!====================================================================== … … 8 8 !! 9.0 ! 06-08 (S. Masson) change frequency output control 9 9 !!------------------------------------------------------------------- 10 #if defined key_ ice_lim11 !!---------------------------------------------------------------------- 12 !! 'key_ ice_lim' : LIMsea-ice model13 !!---------------------------------------------------------------------- 14 !!---------------------------------------------------------------------- 15 !! lim_dia : computation of the time evolution of keys var.16 !! lim_dia_init : initialization and namelist read10 #if defined key_lim2 11 !!---------------------------------------------------------------------- 12 !! 'key_lim2' : LIM 2.0 sea-ice model 13 !!---------------------------------------------------------------------- 14 !!---------------------------------------------------------------------- 15 !! lim_dia_2 : computation of the time evolution of keys var. 16 !! lim_dia_init_2 : initialization and namelist read 17 17 !!---------------------------------------------------------------------- 18 18 USE phycst ! 19 USE par_ice 19 USE par_ice_2 ! ice parameters 20 20 USE ice_oce ! ice variables 21 21 USE sbc_oce ! surface boundary condition variables 22 22 USE daymod ! 23 USE dom_ice 24 USE ice 25 USE limistate 23 USE dom_ice_2 ! 24 USE ice_2 ! 25 USE limistate_2 ! 26 26 USE in_out_manager ! I/O manager 27 27 … … 29 29 PRIVATE 30 30 31 PUBLIC lim_dia ! called by ice_step31 PUBLIC lim_dia_2 ! called by sbc_ice_lim_2 32 32 INTEGER, PUBLIC :: ntmoy = 1 , & !: instantaneous values of ice evolution or averaging ntmoy 33 33 & ninfo = 1 !: frequency of ouputs on file ice_evolu in case of averaging … … 65 65 CONTAINS 66 66 67 SUBROUTINE lim_dia ( kt )67 SUBROUTINE lim_dia_2( kt ) 68 68 !!-------------------------------------------------------------------- 69 !! *** ROUTINE lim_dia ***69 !! *** ROUTINE lim_dia_2 *** 70 70 !! 71 71 !! ** Purpose : Computation and outputs on file ice.evolu … … 83 83 !!------------------------------------------------------------------- 84 84 85 IF( kt == nit000 ) CALL lim_dia_init 85 IF( kt == nit000 ) CALL lim_dia_init_2 ! initialisation of ice_evolu file 86 86 87 87 ! computation of key variables at each time step … … 163 163 ENDIF 164 164 ! 165 END SUBROUTINE lim_dia 165 END SUBROUTINE lim_dia_2 166 166 167 167 168 SUBROUTINE lim_dia_init 168 SUBROUTINE lim_dia_init_2 169 169 !!------------------------------------------------------------------- 170 !! *** ROUTINE lim_dia_init ***170 !! *** ROUTINE lim_dia_init_2 *** 171 171 !! 172 172 !! ** Purpose : Preparation of the file ice_evolu for the output of … … 191 191 IF(lwp) THEN 192 192 WRITE(numout,*) 193 WRITE(numout,*) 'lim_dia_init : ice parameters for ice diagnostics '194 WRITE(numout,*) '~~~~~~~~~~~~ '193 WRITE(numout,*) 'lim_dia_init_2 : ice parameters for ice diagnostics ' 194 WRITE(numout,*) '~~~~~~~~~~~~~~' 195 195 WRITE(numout,*) ' format of the output values fmtinf = ', fmtinf 196 196 WRITE(numout,*) ' number of variables written in one line nfrinf = ', nfrinf … … 275 275 1111 FORMAT( 3(F7.1,1X,F7.3,1X),I3,A ) 276 276 ! 277 END SUBROUTINE lim_dia_init 277 END SUBROUTINE lim_dia_init_2 278 278 279 279 #else 280 280 !!---------------------------------------------------------------------- 281 !! Default option : NO LIMsea-ice model281 !! Default option : NO LIM 2.0 sea-ice model 282 282 !!---------------------------------------------------------------------- 283 283 CONTAINS 284 SUBROUTINE lim_dia ! Empty routine285 END SUBROUTINE lim_dia 284 SUBROUTINE lim_dia_2 ! Empty routine 285 END SUBROUTINE lim_dia_2 286 286 #endif 287 287 288 288 !!====================================================================== 289 END MODULE limdia 289 END MODULE limdia_2
Note: See TracChangeset
for help on using the changeset viewer.