Opened 13 years ago

Closed 13 years ago

Last modified 4 years ago

#65 closed Enhancement (fixed)

dev_001_SBC: move one part on changeset #783 from domain.F90 into sbcmod.F90

Reported by: ctlod Owned by: ctlod
Priority: low Milestone:
Component: OCE Version: release-1
Severity: Keywords: surface
Cc: Review:
MP ready?:
Progress:

Description (last modified by ctlod)

The following part:

  IF( lk_ice_lim ) 
         IF(lwp) WRITE(numout,*) '           ice model coupling frequency      nfice  = ', 
         IF( MOD( nitend - nit000 + 1, nfice) /= 0 ) 
            WRITE(ctmp1,*) 'experiment length (', nitend - nit000 + 1, ') is NOT a multiple of nfice (', 
            CALL ctl_stop( ctmp1, 'Impossible to do proper restart 
         ENDIF
         IF( MOD( nstock             , nfice) /= 0 ) THEN
            WRITE(ctmp1,*) 'nstock ('           , nstock             , ') is NOT a multiple of nfice (', nfice, ')'
            CALL ctl_stop( ctmp1, 'Impossible to do proper restart files' )
         ENDIF
         nfbulk = nfice
         IF( MOD( rday, nfice*rdt ) /= 0 )   CALL ctl_warn( 'nfice is NOT a multiple of the number of time steps in a day' )
         IF(lwp) WRITE(numout,*) '           bulk computation frequency       nfbulk  = ', nfbulk, ' = nfice if ice model used'
         IF(lwp) WRITE(numout,*) '           flag closed sea or not           nclosea = ', nclosea
      ENDIF

is moved for coherence into sbcmod.F90 in replacing nfice with nn_fsbc
parameter and
lk_ice_lim with nn_ice … for the test IF ( lk_ice_lim ) THEN ….

Commit History (3)

ChangesetAuthorTimeChangeLog
7848cetlod2017-03-30T15:32:57+02:00

trunk:Minor improvment to handle land processor removal, see shaconemo ticket #65

7846cetlod2017-03-30T15:25:01+02:00

Minor improvment to handle land processor removal, see shaconemo ticket #65

813ctlod2008-02-07T18:49:36+01:00

dev_001_SBC: move one part on changeset #783 from domain.F90 into sbcmod.F90, see ticket #65

Change History (8)

comment:1 Changed 13 years ago by ctlod

  • Description modified (diff)
  • Owner changed from NEMO team to ctlod
  • Status changed from new to assigned

comment:2 Changed 13 years ago by ctlod

  • Resolution set to fixed
  • Status changed from assigned to closed

comment:3 Changed 4 years ago by nicolasmartin

  • Keywords New Surface module added

comment:4 Changed 4 years ago by nicolasmartin

  • Keywords new added; New removed

comment:5 Changed 4 years ago by nicolasmartin

  • Keywords surface added; Surface removed

comment:6 Changed 4 years ago by nicolasmartin

  • Milestone New Surface Module deleted

Milestone New Surface Module deleted

comment:7 Changed 4 years ago by nicolasmartin

  • Keywords new surface added; NSM removed

comment:8 Changed 4 years ago by nicolasmartin

  • Keywords new removed
Note: See TracTickets for help on using tickets.