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 319 for trunk/NEMO/OPA_SRC/SBC – NEMO

Changeset 319 for trunk/NEMO/OPA_SRC/SBC


Ignore:
Timestamp:
2005-09-30T18:31:43+02:00 (19 years ago)
Author:
opalod
Message:

nemo_v1_bugfix_012:RB: initialize itime before calling flinopen

Location:
trunk/NEMO/OPA_SRC/SBC
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/SBC/flx_bulk_monthly.h90

    r247 r319  
    108108      imois2 = nmonth 
    109109 
     110      itime = jpmois  
     111       
    110112      ipi = jpiglo 
    111113      ipj = jpjglo 

  • trunk/NEMO/OPA_SRC/SBC/tau_forced_monthly.h90

    r247 r319  
    8484      ! iman=number of dates in data file (12 for a year of monthly values) 
    8585      iman  = INT( raamo ) 
    86       ipi=jpiglo 
    87       ipj=jpjglo 
    88       ipk=jpk 
     86      itime = jpmonth 
     87      ipi   = jpiglo 
     88      ipj   = jpjglo 
     89      ipk   = jpk 
    8990 
    9091      i15 = INT( 2*FLOAT( nday ) / ( FLOAT( nobis(nmonth) ) + 0.5 ) ) 
Note: See TracChangeset for help on using the changeset viewer.