Changeset 5723
- Timestamp:
- 2015-09-10T13:50:21+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5107_NOC_MEDUSA/NEMOGCM/NEMO/TOP_SRC/trcwri.F90
r5715 r5723 21 21 USE trcwri_c14b 22 22 USE trcwri_my_trc 23 USE trcwri_medusa 23 24 24 25 IMPLICIT NONE … … 57 58 ! --------------------------------------- 58 59 IF( lk_pisces ) CALL trc_wri_pisces ! PISCES 60 IF( lk_medusa ) CALL trc_wri_medusa ! MESDUSA 61 !!! JPALM 62 !!! don't forget to add idtra 59 63 IF( lk_cfc ) CALL trc_wri_cfc ! surface fluxes of CFC 60 64 IF( lk_c14b ) CALL trc_wri_c14b ! surface fluxes of C14
Note: See TracChangeset
for help on using the changeset viewer.