Changeset 5407 for trunk/NEMOGCM/NEMO/TOP_SRC
- Timestamp:
- 2015-06-11T21:13:22+02:00 (9 years ago)
- Location:
- trunk/NEMOGCM/NEMO/TOP_SRC
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/TOP_SRC/C14b/trcwri_c14b.F90
r4996 r5407 6 6 !! History : 1.0 ! 2009-05 (C. Ethe) Original code 7 7 !!---------------------------------------------------------------------- 8 #if defined key_top && key_c14b && defined key_iomput8 #if defined key_top && defined key_c14b && defined key_iomput 9 9 !!---------------------------------------------------------------------- 10 10 !! 'key_c14b' c14b model -
trunk/NEMOGCM/NEMO/TOP_SRC/CFC/trcwri_cfc.F90
r4996 r5407 6 6 !! History : 1.0 ! 2009-05 (C. Ethe) Original code 7 7 !!---------------------------------------------------------------------- 8 #if defined key_top && key_cfc && defined key_iomput8 #if defined key_top && defined key_cfc && defined key_iomput 9 9 !!---------------------------------------------------------------------- 10 10 !! 'key_cfc' cfc model -
trunk/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcwri_my_trc.F90
r4996 r5407 6 6 !! History : 1.0 ! 2009-05 (C. Ethe) Original code 7 7 !!---------------------------------------------------------------------- 8 #if defined key_top && key_my_trc && defined key_iomput8 #if defined key_top && defined key_my_trc && defined key_iomput 9 9 !!---------------------------------------------------------------------- 10 10 !! 'key_my_trc' my_trc model -
trunk/NEMOGCM/NEMO/TOP_SRC/trcini.F90
r5385 r5407 72 72 CALL top_alloc() ! allocate TOP arrays 73 73 74 l_trcdm2dc = ln_dm2dc .OR. ( l k_cpl .AND. ncpl_qsr_freq /= 1 )74 l_trcdm2dc = ln_dm2dc .OR. ( ln_cpl .AND. ncpl_qsr_freq /= 1 ) 75 75 l_trcdm2dc = l_trcdm2dc .AND. .NOT. lk_offline 76 76 IF( l_trcdm2dc .AND. lwp ) & -
trunk/NEMOGCM/NEMO/TOP_SRC/trcstp.F90
r5385 r5407 132 132 133 133 IF( kt == nittrc000 ) THEN 134 IF( l k_cpl ) THEN134 IF( ln_cpl ) THEN 135 135 rdt_sampl = 86400. / ncpl_qsr_freq 136 136 nb_rec_per_days = ncpl_qsr_freq
Note: See TracChangeset
for help on using the changeset viewer.