Changeset 1200 for trunk/NEMO/OPA_SRC/SBC/sbcflx.F90

Timestamp:

2008-09-24T15:05:20+02:00 (16 years ago)

Author:

rblod

Message:

Adapt Agrif to the new SBC and correct several bugs for agrif (restart writing and reading), see ticket #133
Note : this fix does not work yet on NEC computerq (sxf90/360)

File:

• trunk/NEMO/OPA_SRC/SBC/sbcflx.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/SBC/sbcflx.F90

@@ -133 +133 @@
             CALL ctl_stop( 'sbc_flx: unable to allocate sf structure' )   ;   RETURN  
          ENDIF
+         DO ji= 1, jpfld
+            ALLOCATE( sf(ji)%fnow(jpi,jpj) )
+            ALLOCATE( sf(ji)%fdta(jpi,jpj,2) )
+         END DO
+
 
          ! fill sf with slf_i and control print