- Timestamp:
- 2016-11-08T14:26:53+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/TOP_SRC/TRP/trctrp.F90
r6772 r7207 154 154 IF(lwp)WRITE(numout,*)"trctrp a ",kt,i,zmin,zmax 155 155 156 DO ji=1,jpi 157 DO jj=1,jpj 158 DO jk=1,jpk 159 IF( ieee_is_nan(tra(ji,jj,jk,1)))WRITE(narea+200,*)"test nan a",kt,i,ji,jj,jk,tmask(ji,jj,jk) 160 IF( ieee_is_nan(trn(ji,jj,jk,1)))WRITE(narea+200,*)"test nan n",kt,i,ji,jj,jk,tmask(ji,jj,jk) 161 IF( ieee_is_nan(trb(ji,jj,jk,1)))WRITE(narea+200,*)"test nan b",kt,i,ji,jj,jk,tmask(ji,jj,jk) 162 ENDDO 163 ENDDO 164 ENDDO 165 156 166 END SUBROUTINE test 157 167 #else
Note: See TracChangeset
for help on using the changeset viewer.