New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 7207 for branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/TOP_SRC/TRP/trctrp.F90 – NEMO

Ignore:
Timestamp:
2016-11-08T14:26:53+01:00 (7 years ago)
Author:
cbricaud
Message:

commit modif for CRS; run with/without CRS

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/TOP_SRC/TRP/trctrp.F90

    r6772 r7207  
    154154   IF(lwp)WRITE(numout,*)"trctrp a ",kt,i,zmin,zmax    
    155155 
     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 
    156166   END SUBROUTINE test 
    157167#else 
Note: See TracChangeset for help on using the changeset viewer.