- Timestamp:
- 2014-02-24T12:24:35+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/TOP_SRC/TRP/trdmod_trc.F90
r3425 r4510 88 88 ! 89 89 SELECT CASE( ktrd ) 90 CASE( jptra_trd_xad ) 91 CASE( jptra_trd_yad ) 92 CASE( jptra_trd_zad ) 93 CASE( jptra_trd_ldf ) 94 CASE( jptra_trd_bbl ) 95 CASE( jptra_trd_nsr ) 96 CASE( jptra_trd_zdf ) 97 CASE( jptra_trd_dmp ) 98 CASE( jptra_trd_sms ) 99 CASE( jptra_trd_atf ) 100 CASE( jptra_trd_radb ) 101 CASE( jptra_trd_radn ) 90 CASE( jptra_trd_xad ) ; WRITE (cltra,'("XAD_",4a)') 91 CASE( jptra_trd_yad ) ; WRITE (cltra,'("YAD_",4a)') 92 CASE( jptra_trd_zad ) ; WRITE (cltra,'("ZAD_",4a)') 93 CASE( jptra_trd_ldf ) ; WRITE (cltra,'("LDF_",4a)') 94 CASE( jptra_trd_bbl ) ; WRITE (cltra,'("BBL_",4a)') 95 CASE( jptra_trd_nsr ) ; WRITE (cltra,'("FOR_",4a)') 96 CASE( jptra_trd_zdf ) ; WRITE (cltra,'("ZDF_",4a)') 97 CASE( jptra_trd_dmp ) ; WRITE (cltra,'("DMP_",4a)') 98 CASE( jptra_trd_sms ) ; WRITE (cltra,'("SMS_",4a)') 99 CASE( jptra_trd_atf ) ; WRITE (cltra,'("ATF_",4a)') 100 CASE( jptra_trd_radb ) ; WRITE (cltra,'("RDB_",4a)') 101 CASE( jptra_trd_radn ) ; WRITE (cltra,'("RDN_",4a)') 102 102 END SELECT 103 104 103 cltra = TRIM(cltra)//TRIM(ctrcnm(kjn)) 104 CALL iom_put( cltra, ptrtrd(:,:,:) ) 105 105 ! 106 106 END IF
Note: See TracChangeset
for help on using the changeset viewer.