Changeset 1200 for trunk/NEMO/OPA_SRC/SBC/sbcblk_core.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/sbcblk_core.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/SBC/sbcblk_core.F90

@@ -108 +108 @@
       !!
       INTEGER  ::   ierror   ! return error code
+      INTEGER  ::   ifpr     ! dummy loop indice
       !!
       CHARACTER(len=100) ::  cn_dir   !   Root directory for location of core files
@@ -149 +150 @@
             CALL ctl_stop( 'sbc_blk_core: unable to allocate sf structure' )   ;   RETURN
          ENDIF
+
+         DO ifpr= 1, jpfld
+            ALLOCATE( sf(ifpr)%fnow(jpi,jpj) )
+            ALLOCATE( sf(ifpr)%fdta(jpi,jpj,2) )
+         END DO
 
          ! fill sf with slf_i and control print