Changeset 6580 for branches/2016/dev_r6409_SIMPLIF_2_usrdef
- Timestamp:
- 2016-05-19T16:15:06+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/NEMO/OPA_SRC/DOM/dtatsd.F90
r6579 r6580 102 102 IF( ln_tsd_init .OR. ln_tsd_tradmp ) THEN 103 103 ! 104 IF(lwp) WRITE(numout,*) ' sto dentro if ln_tsd_init prima di allocate if necessary riga 104 '105 104 ALLOCATE( sf_tsd(jpts), STAT=ierr0 ) 106 105 IF( ierr0 > 0 ) THEN … … 108 107 ENDIF 109 108 ! 110 IF(lwp) WRITE(numout,*) ' riga 110 : allocate jp_temp jpk '111 109 ALLOCATE( sf_tsd(jp_tem)%fnow(jpi,jpj,jpk) , STAT=ierr0 ) 112 110 IF( sn_tem%ln_tint ) ALLOCATE( sf_tsd(jp_tem)%fdta(jpi,jpj,jpk,2) , STAT=ierr1 ) 113 IF(lwp) WRITE(numout,*) ' riga 113 : dopo allocate jp_temp jpk, 2 '114 111 ALLOCATE( sf_tsd(jp_sal)%fnow(jpi,jpj,jpk) , STAT=ierr2 ) 115 112 IF( sn_sal%ln_tint ) ALLOCATE( sf_tsd(jp_sal)%fdta(jpi,jpj,jpk,2) , STAT=ierr3 ) … … 120 117 ! ! fill sf_tsd with sn_tem & sn_sal and control print 121 118 slf_i(jp_tem) = sn_tem ; slf_i(jp_sal) = sn_sal 122 IF(lwp) WRITE(numout,*) ' riga 122 : prima di fld_fill'123 119 CALL fld_fill( sf_tsd, slf_i, cn_dir, 'dta_tsd', 'Temperature & Salinity data', 'namtsd' ) 124 IF(lwp) WRITE(numout,*) ' riga 124 : dopo di fld_fill'125 120 ! 126 121 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.