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.
user/flavoni/libIGCM (diff) – NEMO

Changes between Version 122 and Version 123 of user/flavoni/libIGCM


Ignore:
Timestamp:
2009-01-23T11:13:24+01:00 (15 years ago)
Author:
flavoni
Comment:

--

Legend:

Unmodified
Added
Removed
Modified
  • user/flavoni/libIGCM

    v122 v123  
    310310  '''DO ji = 1, jpi''' 
    311311   '''sd(jf)%fnow(ji,jj) = ztintb * sd(jf)%fdta(ji,jj,1) + ztinta * sd(jf)%fdta(ji,jj,2)''' 
    312   '''END DO''' 
     312  '''END DO'''[[BR]] 
    313313 '''END DO''' 
    314314 
    315315 in lines 172-181: 
    316316 
    317  '''sd(jf)%fnow(:,:) = sd(jf)%fdta(:,:,2)   ! piecewise constant field''' 
     317 '''sd(jf)%fnow(:,:) = sd(jf)%fdta(:,:,2)   ! piecewise constant field'''[[BR]] 
    318318 '''DO jj = 1, jpj''' 
    319319  '''DO ji = 1, jpi'''