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 115 and Version 116 of user/flavoni/libIGCM


Ignore:
Timestamp:
2009-01-23T10:58:51+01:00 (15 years ago)
Author:
flavoni
Comment:

--

Legend:

Unmodified
Added
Removed
Modified

  • user/flavoni/libIGCM

    v115 v116  
    291291 difference with the old one: [[BR]] 
    292292 
    293  in line 74 
    294        INTEGER  ::   jf, '''ji, jj''' ! dummy indices 
    295  
    296  in line 94,99 
    297                 '''DO jj = 1, jpj''' 
    298                 '''DO ji = 1, jpi''' 
    299                '''sd(jf)%fdta(ji,jj,1) = sd(jf)%fdta(ji,jj,2)''' 
    300  !               sd(jf)%fdta(:,:,1) = sd(jf)%fdta(:,:,2) 
    301                ''' END DO''' 
    302                ''' END DO''' 
    303  in line 164c169,173 
    304                 sd(jf)%fnow(:,:) = ztintb * sd(jf)%fdta(:,:,1) + ztinta * sd(jf)%fdta(:,:,2) 
    305  
    306                 DO jj = 1, jpj 
    307                    DO ji = 1, jpi 
    308                 sd(jf)%fnow(ji,jj) = ztintb * sd(jf)%fdta(ji,jj,1) + ztinta * sd(jf)%fdta(ji,jj,2) 
    309                    END DO 
    310                 END DO 
    311  in line 172c181,186 
    312 <                sd(jf)%fnow(:,:) = sd(jf)%fdta(:,:,2)   ! piecewise constant field 
     293 in line 74:     INTEGER  ::   jf, '''ji, jj''' ! dummy indices 
     294 
     295 in line 94,99: '''DO jj = 1, jpj''' [[BR]] 
     296                  '''DO ji = 1, jpi''' [[BR]] 
     297                '''sd(jf)%fdta(ji,jj,1) = sd(jf)%fdta(ji,jj,2)'''[[BR]] 
     298 !                 sd(jf)%fdta(:,:,1) = sd(jf)%fdta(:,:,2)[[BR]] 
     299                 ''' END DO'''[[BR]] 
     300               ''' END DO'''[[BR]] 
     301 
     302 in line 164c169,173:   sd(jf)%fnow(:,:) = ztintb * sd(jf)%fdta(:,:,1) + ztinta * sd(jf)%fdta(:,:,2) 
     303                '''DO jj = 1, jpj'''[[BR]] 
     304                '''  DO ji = 1, jpi''' [[BR]] 
     305                '''sd(jf)%fnow(ji,jj) = ztintb * sd(jf)%fdta(ji,jj,1) + ztinta * sd(jf)%fdta(ji,jj,2)'''[[BR]] 
     306                  '''END DO'''[[BR]] 
     307                '''END DO'''[[BR]] 
     308 
     309 in line 172c181,186:       sd(jf)%fnow(:,:) = sd(jf)%fdta(:,:,2)   ! piecewise constant field 
    313310--- 
    314311>                DO jj = 1, jpj