- Timestamp:
- 2015-06-19T18:07:11+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5107_mld_zint/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcsms_my_trc.F90
r5247 r5447 46 46 INTEGER :: jn ! dummy loop index 47 47 REAL(wp), POINTER, DIMENSION(:,:,:) :: ztrmyt 48 !!----------------------------------------------------------------------48 !!---------------------------------------------------------------------- 49 49 ! 50 50 IF( nn_timing == 1 ) CALL timing_start('trc_sms_my_trc') … … 55 55 56 56 IF( l_trdtrc ) CALL wrk_alloc( jpi, jpj, jpk, ztrmyt ) 57 58 WHERE( (glamt <= 170) .AND. (glamt >= 160) .AND. (gphit <= -74) .AND. (gphit >=-75.6) )59 trn(:,:,1,jpmyt1) = 1._wp60 trb(:,:,1,jpmyt1) = 1._wp61 tra(:,:,1,jpmyt1) = 0._wp62 END WHERE63 57 64 58 IF( l_trdtrc ) THEN ! Save the trends in the ixed layer
Note: See TracChangeset
for help on using the changeset viewer.